Option Explicit
Sub J_Sample002()
    Dim myDate As Date
    Dim myMsg  As String
    Dim myTtl  As String
    Dim myDef  As String
    myMsg = "пJ"                    'wҦr
    myTtl = "J"
    myDef = Format(Now, "yyyy/mm/dd")           'wl
    myDate = Application.InputBox( _
        Prompt:=myMsg, Title:=myTtl, Default:=myDef, Type:=2)
    MsgBox myDate
End Sub
